Freaks Macintosh Archive

home *** CD-ROM | disk | FTP | other *** search

/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / Development & Resource Tools / ResEdit3.0d.sit / ResEdit™ 3.0 / Plugins / hiobPlugin.rsrc / EDL_128_Resource.hiob next >

Wrap

Text File | 1996-04-23 | 20KB | 672 lines

// --------------------------------------------------------------------- // HIImageRef // --------------------------------------------------------------------- Define (HIImageRef) { CalcBitsU (6, 32); // # elements in record CalcBitsU (0, 32); // Factored data - unused // image type CalcBitsU ('ityp', 32); // key CalcBitsU ('ityp', 32); // type CalcBitsU (4, 32); // size ULong (HIImage_imageType_data); Default ('none'); // data format - always use resource references CalcBitsU ('idfm', 32); // key CalcBitsU ('hidf', 32); // type CalcBitsU (4, 32); // size CalcBitsU (0, 32); // note - we have parameters for all the supported image types, // even many some of them don't make sense for a given // image type. This is easier to do in edl since we don't // have to recalculate the # of elements based on the image type. // text resource id CalcBitsU ('tres', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); // size ResourceRef (HIImage_textResourceID_data, 'txto', 16); // icon suite resource id CalcBitsU ('icid', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); // size ResourceRef (HIImage_iconSuiteID_data, 'icl8', 16); // icon suite selector CalcBitsU ('isel', 32); // key CalcBitsU ('isel', 32); // type CalcBitsU (4, 32); // size ULong (HIImage_iconSelector_data); Default (4); // picture resource id CalcBitsU ('pict', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); // size UWord (HIImage_pictureResourceID_data); } // --------------------------------------------------------------------- // HIObject // --------------------------------------------------------------------- Define (HIObject) { // Class major version CalcBitsU ('mavr', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // size Long (HIObject_majorVersion_data); Default (1); // Class minor version CalcBitsU ('mivr', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // size Long (HIObject_minorVersion_data); Default (0); // data format - always use resource references CalcBitsU ('hidf', 32); // key CalcBitsU ('hidf', 32); // type CalcBitsU (4, 32); // size CalcBitsU (0, 32); // Bounds CalcBitsU ('bnds', 32); // key CalcBitsU ('qdrt', 32); // type CalcBitsU (8, 32); // size Word (HIObject_bounds_top); Word (HIObject_bounds_left); Word (HIObject_bounds_bottom); Word (HIObject_bounds_right); // Reference Label CalcBitsU ('idnt', 32); // key CalcBitsU ('rflb', 32); // type CalcBitsU (8, 32); // size String (HIObject_refLabel_creator, 4); String (HIObject_refLabel_id, 4); // Visible CalcBitsU ('visi', 32); // key CalcBitsU ('bool', 32); // type CalcBitsU (1, 32); // size Byte (HIObject_visible_data); PadByte; // Enabled CalcBitsU ('enab', 32); // key CalcBitsU ('bool', 32); // type CalcBitsU (1, 32); // size Byte (HIObject_enabled_data); Default (1); PadByte; // Title CalcBitsU ('titl', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_HIObject_title_end - _HIObject_title_start) / 8, 32); Label (_HIObject_title_start); Call (HIImageRef); Label (_HIObject_title_end); // Subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIObject_subclassData_begin) / 8, 32); Label (_HIObject_subclassData_begin); } // --------------------------------------------------------------------- // HIPanel // --------------------------------------------------------------------- Define (HIPanel) { Call (HIObject); // Begin HIPanel Data CalcBitsU (1, 32); // # items in the record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIPanel_subclassData_begin) / 8, 32); Label (_HIPanel_subclassData_begin); } // --------------------------------------------------------------------- // HIControl // --------------------------------------------------------------------- Define (HIControl) { Call (HIPanel); CalcBitsU (4, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Control mimimum CalcBitsU ('cmin', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // size Long (HIControl_minimum_data); Default (0); // Control maximum CalcBitsU ('cmax', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // size Long (HIControl_maximum_data); Default (1); // Control value CalcBitsU ('cval', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // size Long (HIControl_value_data); Default (0); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIControl_subclassData_begin) / 8, 32); Label (_HIControl_subclassData_begin); } // --------------------------------------------------------------------- // HISlider // --------------------------------------------------------------------- Define (HISlider) { Call (HIControl); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HISlider_subclassData_begin) / 8, 32); Label (_HISlider_subclassData_begin); } // --------------------------------------------------------------------- // HILittleArrows // --------------------------------------------------------------------- Define (HILittleArrows) { Call (HIControl); CalcBitsU (2, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Arrow Delta CalcBitsU ('delt', 32); // key CalcBitsU ('magn', 32); // type CalcBitsU (4, 32); // size ULong (HILittleArrows_arrowDelta_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HILittleArrows_subclassData_begin) / 8, 32); Label (_HILittleArrows_subclassData_begin); } // --------------------------------------------------------------------- // HIProgressIndicator // --------------------------------------------------------------------- Define (HIProgressIndicator) { Call (HIControl); CalcBitsU (2, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Progress Indicator behavior CalcBitsU ('beha', 32); // key CalcBitsU ('cbeh', 32); // type CalcBitsU (4, 32); // size ULong (HIProgressIndicator_behavior_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIProgressIndicator_subclassData_begin) / 8, 32); Label (_HIProgressIndicator_subclassData_begin); } // --------------------------------------------------------------------- // HIScrollbar // --------------------------------------------------------------------- Define (HIScrollbar) { Call (HIControl); CalcBitsU (3, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Arrow Delta CalcBitsU ('adlt', 32); // key CalcBitsU ('magn', 32); // type CalcBitsU (4, 32); // size ULong (HIScrollbar_arrowDelta_data); // Page Delta CalcBitsU ('pdlt', 32); // key CalcBitsU ('magn', 32); // type CalcBitsU (4, 32); // size ULong (HIScrollbar_pageDelta_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIScrollbar_subclassData_begin) / 8, 32); Label (_HIScrollbar_subclassData_begin); } // --------------------------------------------------------------------- // HIBevelButton // --------------------------------------------------------------------- Define (HIBevelButton) { Call (HIControl); CalcBitsU (2, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Bevel Button behavior CalcBitsU ('behv', 32); // key CalcBitsU ('cbeh', 32); // type CalcBitsU (4, 32); // size Long (HIBevelButton_behavior_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIBevelButton_subclassData_begin) / 8, 32); Label (_HIBevelButton_subclassData_begin); } // --------------------------------------------------------------------- // HIDisclosureTriangle // --------------------------------------------------------------------- Define (HIDisclosureTriangle) { Call (HIControl); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIDisclosureTriangle_subclassData_begin) / 8, 32); Label (_HIDisclosureTriangle_subclassData_begin); } // --------------------------------------------------------------------- // HIPushButton // --------------------------------------------------------------------- Define (HIPushButton) { Call (HIControl); CalcBitsU (2, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Default/Cancel state CalcBitsU ('adrn', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // size Long (HIPushButton_defaultCancelState_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIPushButton_subclassData_begin) / 8, 32); Label (_HIPushButton_subclassData_begin); } // --------------------------------------------------------------------- // HICheckbox // --------------------------------------------------------------------- Define (HICheckbox) { Call (HIControl); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HICheckbox_subclassData_begin) / 8, 32); Label (_HICheckbox_subclassData_begin); } // --------------------------------------------------------------------- // HIRadioButton // --------------------------------------------------------------------- Define (HIRadioButton) { Call (HIControl); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIRadioButton_subclassData_begin) / 8, 32); Label (_HIRadioButton_subclassData_begin); } // --------------------------------------------------------------------- // HIIcon // --------------------------------------------------------------------- Define (HIIcon) { Call (HIPanel); CalcBitsU (2, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // # icon transform CalcBitsU ('tran', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); // length Word (HIIcon_transform_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIIcon_subclassData_begin) / 8, 32); Label (_HIIcon_subclassData_begin); } // --------------------------------------------------------------------- // HIVisualSeparator // --------------------------------------------------------------------- Define (HIVisualSeparator) { Call (HIPanel); CalcBitsU (2, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // Separator Type CalcBitsU ('vsty', 32); // key CalcBitsU ('vsty', 32); // type CalcBitsU (4, 32); // length ULong (HIVisualSeparator_separatorType_data); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIVisualSeparator_subclassData_begin) / 8, 32); Label (_HIVisualSeparator_subclassData_begin); } // --------------------------------------------------------------------- // HICaption // --------------------------------------------------------------------- Define (HICaption) { Call (HIPanel); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HICaption_subclassData_begin) / 8, 32); Label (_HICaption_subclassData_begin); } // --------------------------------------------------------------------- // HIPicture // --------------------------------------------------------------------- Define (HIPicture) { Call (HIPanel); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIPicture_subclassData_begin) / 8, 32); Label (_HIPicture_subclassData_begin); } // --------------------------------------------------------------------- // HIEmbeddingPanel // --------------------------------------------------------------------- Define (HIEmbeddingPanel) { Call (HIPanel); CalcBitsU (3, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // # sub panels CalcBitsU ('#spn', 32); // key CalcBitsU ('magn', 32); // type CalcBitsU (4, 32); // length CalcBitsU (Len (HIEmbeddingPanel_subPanels), 32); // sub panel list - an AEList CalcBitsU ('spn#', 32); // key CalcBitsU ('list', 32); // type CalcBitsU ((_HIEmbeddingPanel_subPanelList_end - _HIEmbeddingPanel_subPanelList_begin) / 8, 32); Label (_HIEmbeddingPanel_subPanelList_begin); // # elements in list CalcBitsU (Len (HIEmbeddingPanel_subPanels), 32); CalcBitsU (0, 32); // factored data - unused List (HIEmbeddingPanel_subPanels, HIEmbeddingPanel_subPanel_type) { // each element in the list is an AERecord... CalcBitsU ('reco', 32); // type CalcBitsU ((_HIEmbeddingPanel_subPanelRecord_end - _HIEmbeddingPanel_subPanelRecord_begin) / 8, 32); Label (_HIEmbeddingPanel_subPanelRecord_begin); CalcBitsU (3, 32); // # elements in record CalcBitsU (0, 32); // factored data - unused // adoption flags CalcBitsU ('adpt', 32); // key CalcBitsU ('long', 32); // size CalcBitsU (4, 32); // length ULong (HIEmbedingPanel_subPanelAdoptionFlags); Default (0x07); // adoption flags CalcBitsU ('frbn', 32); // key CalcBitsU ('long', 32); // size CalcBitsU (4, 32); // length Long (HIEmbedingPanel_subPanelFrameBindingFlags); Default (0x03); // subPanel resource id CalcBitsU ('spnl', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); // size ResourceRef (HIEmbeddingPanel_subPanelResID, 'hiob', 16); } Label (_HIEmbeddingPanel_subPanelList_end); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - HIEmbeddingPanel_subclassData_begin) / 8, 32); Label (_HIEmbeddingPanel_subclassData_start); } // --------------------------------------------------------------------- // HIRootPanel // --------------------------------------------------------------------- Define (HIRootPanel) { Call (HIEmbeddingPanel); CalcBitsU (1, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIRootPanel_subclassData_begin) / 8, 32); Label (_HIRootPanel_subclassData_begin); } // --------------------------------------------------------------------- // HIWindow // --------------------------------------------------------------------- Define (HIWindow) { Call (HIObject); CalcBitsU (5, 32); // # items in record CalcBitsU (0, 32); // Factored data - unused // window class CalcBitsU ('wcls', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // length ULong (HIWindow_windowClass_data); Default (2); // window variant CalcBitsU ('wvar', 32); // key CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // length ULong (HIWindow_windowVariant_data); // window option bits (a whole bunch of them) CalcBitsU ('wopt', 32); CalcBitsU ('long', 32); // type CalcBitsU (4, 32); // length PadBits (18); Bool (HIWindow_quitOnClose_data, 1); Bool (HIWindow_automaticAlignment_data, 1); Bool (HIWindow_wantsBackgroundClicks_data, 1); Bool (HIWindow_noActivateEvents_data, 1); Bool (HIWindow_noUpdateEvents_data, 1); Bool (HIWindow_doNotEraseContent_data, 1); Bool (HIWindow_hasCollapse_data, 1); Default (1); Bool (HIWindow_doesTitleIconDrag_data, 1); Default (1); Bool (HIWindow_hasCloseBox_data, 1); Default (1); Bool (HIWindow_hasVerticalZoom_data, 1); Default (1); Bool (HIWindow_hasHorizontalZoom_data, 1); Default (1); Bool (HIWindow_noProcessSwitch_data, 1); Bool (HIWindow_isRightToLeft_data, 1); Bool (HIWindow_hasGrowBox_data, 1); Default (1); // root panel just a resource id for now CalcBitsU ('root', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); // length ResourceRef (HIWindow_rootPanelResID_data, 'hiob', 16); // subclass data CalcBitsU ('scls', 32); // key CalcBitsU ('reco', 32); // type CalcBitsU ((_subclassData_end - _HIWindow_subclassData_begin) / 8, 32); Label (_HIWindow_subclassData_begin); } // --------------------------------------------------------------------- // EDL definition of an HI Object initializer in AEDF // --------------------------------------------------------------------- // type of data in the AERecord CalcBitsU ('reco', 32); // version of the data format UWord (AEDF_majorVersion); Default (1); UWord (AEDF_minVersion); Default (1); // # items in the record ULong (HIObject_numItems); Default (11); // Factored data - unused CalcBitsU (0,32); // Class Name CalcBitsU ('clas', 32); // key CalcBitsU ('cnam', 32); // type CalcBitsU ((_HIObject_className_end - _HIObject_className_start) / 8, 32); Label (_HIObject_className_start); EvenCString (HIObject_className_data); Label (_HIObject_className_end); // class id - For DR1, this is how we refer to HIObject class, rather than by name CalcBitsU ('clid', 32); // key CalcBitsU ('shor', 32); // type CalcBitsU (2, 32); UWord (HIObject_classID); Default (1); // Start subclass data Switch (HIObject_classID) { case 1: { Call (HIPushButton); } case 2: { Call (HICheckbox); } case 3: { Call (HIRadioButton); } case 5: { Call (HIVisualSeparator); } case 6: { Call (HIEmbeddingPanel); } case 7: { Call (HISlider); } case 8: { Call (HIBevelButton); } case 9: { Call (HIDisclosureTriangle); } case 10: { Call (HILittleArrows); } case 12: { Call (HIProgressIndicator); } case 13: { Call (HIScrollbar); } case 14: { Call (HICaption); } case 15: { Call (HIPicture); } case 16: { Call (HIIcon); } case 18: { Call (HIRootPanel); } case 19: { Call (HIWindow); } } // at the end we'll have an empty record for leaf // class's subclass data CalcBitsU (0, 32); // no elements in this record CalcBitsU (0, 32); // factored data - unused Label (_subclassData_end);